Micom Basic 1995 October/CD [BM9510].bin/programs/lotus/lotus001.dsk/MACROS/123COPY.SMM

INI File | 1994-08-11 | 28.9 KB | 1,933 lines

[ver]
    4
[sty]
    jmacro.sty
[files]
[charset]
    82
    SHIFTJIS (Windows)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[fldnames]
    ╠¿░┘─▐1
    ╠¿░┘─▐2
    ╠¿░┘─▐3
    ╠¿░┘─▐4
    ╠¿░┘─▐5
    ╠¿░┘─▐6
    ╠¿░┘─▐7
    ╠¿░┘─▐8
[desc]
    1-2-3é╠├▐░└é≡▒╨╠▀█ò╢Åæé╔║╦▀░




    776402842
    64
    731818190
    915
    9
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    û{ò╢
    2
    [fnt]
        û╛Æ⌐
        200
        0
        32768
    [algn]
        1
        2
        0
        0
        0
    [spc]
        17
        204
        2
        0
        0
        2
        100
    [brk]
        68
    [line]
        8
        0
        2
        0
        1
        0
        0
        15
        15
        2
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        \
    û{ò╢
    0
    0
[tag]
    ╠º▌╕╝«▌
    3
    [fnt]
        û╛Æ⌐
        200
        0
        32769
    [algn]
        1
        2
        0
        0
        0
    [spc]
        17
        204
        2
        0
        0
        2
        100
    [brk]
        68
    [line]
        8
        0
        2
        0
        1
        0
        0
        15
        15
        2
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        \
    û{ò╢
    0
    0
[tag]
    âëâxâï
    4
    [fnt]
        û╛Æ⌐
        240
        0
        32769
    [algn]
        1
        2
        0
        0
        0
    [spc]
        17
        204
        2
        0
        0
        2
        100
    [brk]
        68
    [line]
        8
        0
        2
        0
        1
        0
        0
        15
        15
        2
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        \
    û{ò╢
    0
    0
[tag]
    âwâbâ_
    5
    [fnt]
        û╛Æ⌐
        200
        0
        32769
    [algn]
        2
        2
        0
        0
        0
    [spc]
        17
        204
        2
        0
        0
        2
        100
    [brk]
        68
    [line]
        8
        0
        2
        0
        1
        0
        0
        15
        15
        2
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        \
    âwâbâ_
    0
    0
[tag]
    ò\ôαò╢
    6
    [fnt]
        û╛Æ⌐
        200
        0
        32768
    [algn]
        1
        2
        0
        0
        0
    [spc]
        17
        204
        2
        0
        0
        2
        100
    [brk]
        4
    [line]
        8
        0
        2
        0
        1
        0
        0
        15
        15
        2
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        1
    [nfmt]
        280
        1
        2
        .
        ,
        \
    ò\ôαò╢
    0
    0
[frm]
    1
    1573060
    360
    9240
    2191
    10381
    0
    1
    1
    0 0 0 0 0 0 0
    0
    16777215
    3
    0
    6400
    0 0
    [frmlay]
        9520
        1831
        1
        0
        0
        1
        9240
        0
        0
        0
        0
        0
        0
        0
        1
        360
        1886
        0
    [tbl]
         3 1 0 86 1440 86 1 43 43
        [h]
             0 280 86 2 0 1 0
             1 280 86 2 0 1 0
             2 280 86 2 0 1 0
        [e]
        [w]
             0 1728 60 6 0
             1 1440 86 0 0
             2 1440 86 0 0
        [e]
        [data]
             0 0 8 0 0 0 2147483648 1 0 0 0 0
@Table Text@<+@><:S+-1><:f240, Arial MT,0,0,0>Clarke

>
             1 0 8 0 0 0 2147483648 1 0 0 0 0
@Table Text@<+@><:S+-1><:f240, Arial MT,0,0,0>Aubry

>
             2 0 8 0 0 0 2147483648 1 0 0 0 0
@Table Text@<+@><:S+-1><:f240, Arial MT,0,0,0>Kaplan

>
        [e]
    [tble]
[lay]
    Standard
    516
    [rght]
        16839
        11907
        2
        1417
        1417
        2
        1417
        1417
        0
        0
        0
        0
        0
        2
        1
        1417
        10488
        10
        1
        851
        1
        1701
        1
        2552
        1
        3402
        1
        4253
        1
        5103
        1
        5954
        1
        6804
        1
        7655
        1
        8505
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        11907
        1417
        0
        2
        3
        0 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1417
        11907
        2
        1417
        73
        2
        793
        1417
        0
        0
        0
        0
        1
        1
        1
        1417
        10488
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        15422
        11907
        16839
        0
        2
        3
        0 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        16839
        11907
        2
        1417
        793
        2
        15495
        1417
        0
        0
        0
        0
        1
        1
        1
        1417
        10488
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    9
    58 0 70 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    119 0 10 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    179 0 52 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    238 0 13 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    283 0 88 32 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    339 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    397 0 53 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    405 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    406 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#226,9071><:X3,-32768;include "amixlate.sam!123copy">'123COPY.SMM

<:#226,9071>define str200"Collect & Copy"

<:#226,9071>define str201    "1-2-3 R4J"

<:#226,9071>define str202    "1-2-3 for Windows"

<:#226,9071>define str205    "OLE Link"

<:#226,9071>define str204    "<[><[>run(""{{EDIT-COPY}"")]"

<:#226,9071>define str206    "Windows Metafile"

<:#226,9071>define str207    "Windows Metafile"

<:#226,9071>define str208    "jdefault.sty"

<:#226,9071>define str209    "Wor&ksheet" ' this is the third menu in 123w rel 1.1

<:#226,9071>define str210    "&Chart"    ' this is the third menu in 123w rel 1.1 if in chart mode

<:#226,9071>define curunits 2    ' 1 defaults to inches  2 is CM

<:#226,9071>' END SECTION<:X~3,-32768;include "amixlate.sam!123copy">

<:#226,9071>

<:#226,9071>' Macro by Charlie Pappas

<:#226,9071><:f,,>

<:#452,9071>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

<:#226,9071>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

<:#452,9071>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

<:#226,9071>define    WM_SETFONT    0x30

<:#226,9071>declare createdlgfont()

<:#226,9071>declare setfont(hdlg, id)

<:#226,9071>declare deletefont()

<:#226,9071>

<:#226,9071>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)

<:#226,9071>Define SetFocus() DllCall("user,SetFocus,HH",%1)

<:#226,9071>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

<:#226,9071>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)

<:#452,9071>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)

<:#226,9071>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

<:#226,9071>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)

<:#226,9071>define SWP_NOMOVE    0x0002

<:#226,9071>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

<:#226,9071>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

<:#226,9071>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

<:#226,9071>

@Outline2@<:#226,9071>Define GetWindowText() DllCall("user,GetWindowText,HHCH", %1, %2, 50)

<:#226,9071>

<:#226,9071>define    GetMenu(hWnd)

<:#226,9071>    DllCall("user,GetMenu,HH", %1)

<:#226,9071>define    GetMenuString(hMenu, offset, namep, max, flag)

<:#226,9071>    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

<:#226,9071>define    GetMenuItemCount(hMenu)

<:#226,9071>    DllCall("user,GetMenuItemCount,HH", %1)

<:#226,9071>define    MF_BYPOSITION    0x400

<:#226,9071>

<:#226,9071>Define WM_SETREDRAW            0x000B

<:#226,9071>define WM_COMMAND        0x0111

<:#226,9071>define SC_RESTORE      0xF120

<:#226,9071>define WM_SYSCOMMAND       0x0112

<:#226,9071>

<:#226,9071>define MyAppName    str200

<:#226,9071>define MsgBox(msgtext)    Message(%1, myappname)

<:#226,9071>

<:#226,9071>declare newnow()

<:#226,9071>declare done()

<:#226,9071>declare insertdata(hdlg, id, val)

<:#226,9071>declare hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)

<:#226,9071>

<:#226,9071>declare showami(rect)

<:#226,9071>declare hideami(rect)

<:#226,9071>declare modframe()

<:#226,9071>declare setpagelayout()

<:#226,9071>declare freeglobals()

<:#226,9071>declare winproc(hdlg, id, val)

<:#226,9071>declare box2(hdlg, id, val)

<:#226,9071>declare 123which()

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function bits(123w)

<:#226,9071>'singlestep(on)

<:#226,9071>if 123w = 1

<:#226,9071>    rmac = getrunningmacrofile$()

<:#226,9071>    runlater(rmac, 0.1)

<:#226,9071>    exit function

<:#226,9071>endif

<:#226,9071>appname = "123W"

<:#226,9071>AppTitleBarName = str201

<:#226,9071>LotusIniAppName = "123W"

<:#226,9071>ClassName = "123WParent"

<:#226,9071>

<:#226,9071>hwnd = hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)

<:#226,9071>if hwnd = 0

<:#226,9071>    return 0

<:#226,9071>endif

<:#226,9071>

<:#226,9071>if 123which() <<<;> 0

<:#226,9071>    AppTitleBarName = str202

<:#226,9071>endif

<:#226,9071>

<:#226,9071>GetWindowText(hwnd,&AppTitleBarName)'dirty hack by KW

<:#226,9071>

<:#226,9071>dim rect(4)

<:#226,9071>onerror endit

<:#226,9071>oncancel endit

<:#226,9071>

<:#226,9071>allocglobalvar("bits", 1)

<:#226,9071>setglobalvar("bits", 0)

<:#226,9071>allocglobalvar("bitsapp", 1)

<:#226,9071>setglobalvar("bitsapp", lotusiniappname)

<:#226,9071>allocglobalvar("framecount", 1)

<:#226,9071>setglobalvar("framecount", 0)

<:#226,9071>allocglobalvar("lotusapphwnd", 1)

<:#226,9071>setglobalvar("lotusapphwnd", hwnd)

<:#226,9071>hwndpro = findwindow("amiprownda", 0)

<:#226,9071>if isiconic(hwnd)

<:#226,9071>    appsendmessage(findwindow("Progman", 0), WM_SYSCOMMAND, SC_RESTORE, 0)

<:#226,9071>endif

<:#226,9071>showwindow(hwndpro, 0)

<:#226,9071>newnow()

<:#226,9071>rmac = getrunningmacrofile$()

<:#226,9071>setdlgcallback(0, "{rmac}!initdlg")

<:#226,9071>setdlgcallback(71, "{rmac}!insertdata")

<:#226,9071>runlater("{rmac}!setappfocus", 0.1)

dlgkeyinterrupt(<[>f1], "{rmac}!helpme")

<:#226,9071>dialogbox(".", "box1")

'dlgkeyinterrupt(<[>f1], "{rmac}!helpme")

<:#226,9071>setdlgcallback(0, "{rmac}!initdlg2")

<:#226,9071>box = dialogbox(".", lotusiniappname)

<:#226,9071>if box = 1

<:#226,9071>    showwindow(hwndpro, 5)

<:#226,9071>else

<:#226,9071>    showwindow(hwndpro, 5)

<:#226,9071>    activateapp(AppTitleBarName)

<:#226,9071>endif

<:#226,9071>freeglobals()

<:#226,9071>return 1

<:#226,9071>endit:

<:#226,9071>showwindow(hwndpro, 5)

<:#226,9071>activateapp(AppTitleBarName)

<:#226,9071>freeglobals()

<:#226,9071>end function

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function setappfocus()

<:#226,9071>setfocus(getglobalvar$("lotusapphwnd"))

<:#226,9071>end function

<:#226,9071>

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function helpme()

<:#452,9071>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 15)

<:#226,9071>end function

<:#226,9071>

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function freeglobals()

<:#226,9071>freeglobalvar("framecount")

<:#226,9071>freeglobalvar("bits")

<:#226,9071>freeglobalvar("lotusapphwnd")

<:#226,9071>freeglobalvar("bitsapp")

<:#226,9071>deletefont()

<:#226,9071>end function

<:#226,9071>

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function initdlg2(hdlg, id, value)

<:#226,9071>for i = 1000 to 1006

<:#226,9071>    setfont(hdlg, i)

<:#226,9071>next

<:#226,9071>end function

<:#226,9071>

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function initdlg(hdlg, id, value)

<:#226,9071>for i = 1000 to 1006

<:#226,9071>    setfont(hdlg, i)

<:#226,9071>next

<:#226,9071>

<:#226,9071>dim rect(4)

<:#226,9071>GetWindowRect(hdlg, &rect)

<:#226,9071>x = rect(1)

<:#226,9071>y = rect(2)

<:#226,9071>cx = rect(3) - x

<:#226,9071>cy = rect(4) - y

<:#226,9071>setwindowpos(hdlg, -1, x, y, cx, cy, 0)

<:#226,9071>end function

<:#226,9071>

<:#226,9071>

@╠º▌╕╝«▌@<:#226,9071>function insertdata(hdlg, id, val)

<:#226,9071>       AppTitle=""

<:#226,9071>    GetWindowText(findwindow("123WParent",0),&AppTitle) 'dirty hack by KW

<:#226,9071>    'if AppIsRunning("1-2-3 R4J") = FALSE

<:#226,9071>    if AppIsRunning(AppTitle) = FALSE

<:#226,9071>        message("1-2-3 é¬Ä└ìsé│éΩé─éóé▄é╣é±üB", "123COPY")

<:#226,9071>        exit function

<:#226,9071>    endif

<:#226,9071>setappfocus()

<:#226,9071>hwnd = getglobalvar$("lotusapphwnd")

<:#226,9071>appname = getglobalvar$("bitsapp")

<:#226,9071>

<:#226,9071>which123 = 123which()

<:#226,9071>switch which123

<:#239,9071>    case 0

<:#239,9071>        activateapp(str201) ' do it with 123

<:#239,9071>        ID = DDEInitiate("123W", "system")

<:#239,9071>        command = str204

<:#239,9071>        res = DDEExecute(id, command) ' comm

<:#239,9071>        if id <;> 0

<:#239,9071>            DDETerminate(id)

<:#239,9071>        endif

<:#239,9071>    case 1

<:#239,9071>        wparam = 0x42F    'copy from sheet

<:#239,9071>        lparao = 0x00010000

<:#239,9071>        PostMessage(hwnd, wm_command, wparam, lparao)

<:#239,9071>    case 2

<:#239,9071>        wparam = 0x05AC    ' copy from chart

<:#239,9071>        lparao = 0x00000000

<:#239,9071>        PostMessage(hwnd, wm_command, wparam, lparao)

<:#239,9071>endswitch

<:#239,9071>

<:#239,9071>activateapp("")

<:#239,9071>

<:#239,9071>if getinfo(217, 24, paste) <<<;> 1

<:#239,9071>    return 0

<:#239,9071>endif

<:#239,9071>if getmode() <<<;> 1

<:#239,9071>    layoutmode()

<:#239,9071>    if getmode() <<<;> 1

<:#239,9071>        return 0

<:#239,9071>    endif

<:#239,9071>endif

<:#239,9071>count = getglobalvar$("framecount")

<:#239,9071>count = count + 1

<:#239,9071>if count = 6

<:#239,9071>    PageBreak(1  )

<:#239,9071>    count = 1

<:#239,9071>endif

<:#239,9071>setglobalvar("framecount", count)

<:#239,9071>if 123which() = 0

<:#239,9071>    'pastespecial("OLE Embed")

<:#239,9071>    pastespecial(str205)

<:#239,9071>    if isframeselected() <<<;> 1

<:#239,9071>        pastespecial(str206)

<:#239,9071>    endif

<:#239,9071>else

<:#239,9071>    pastespecial(str207)

<:#239,9071>endif

<:#239,9071>if isframeselected()

<:#239,9071>    modframe()

<:#239,9071>    type("<[>esc]")

<:#239,9071>endif

<:#239,9071>endit:

setappfocus()

<:#239,9071>END FUNCTION

<:#239,9071>

<:#239,9071>

<:#239,9071>DIALOG    box1

<:#478,9071>-2134376448    9    175    191    185    48    ""    ""    "1-2-3├▐░└î≡è╖"

<:#226,9071>FONT    8    "System"

<:#478,9071>118    3    63    12    71    1342373889    "button"    "▒╨╠▀█é╔║╦▀░(\036C\037║)"    0

<:#239,9071>118    19    63    12    2    1342373888    "button"    "ÅIù╣"    0

<:#478,9071>10    3    87    8    1000    1342177280    "static"    "║╦▀░é╡é╜éóö═ê═ñé▄é╜é═"    0

<:#478,9071>10    11    91    8    1001    1342177280    "static"    "╕▐╫╠é≡æIæ≡é╡é─é¡é╛é│éó"    0

<:#478,9071>10    19    101    16    1002    1342177280    "static"    "<<▒╨╠▀█é╔║╦▀░(C)<;> é≡æIæ≡é╡é─é¡é╛é│éó"    0

<:#478,9071>10    35    103    8    1003    1342177280    "static"    "ÄΦÅçé≡îJéΦò╘é╡é─é¡é╛é│éó"    0

<:#239,9071>2    3    6    8    1004    1342177280    "static"    "1."    0

<:#239,9071>2    19    6    8    1005    1342177280    "static"    "2."    0

<:#239,9071>2    35    6    8    1006    1342177280    "static"    "3."    0

<:#239,9071>END DIALOG

<:#239,9071>DIALOG    123w

<:#478,9071>-2134376448    9    92    49    200    66    ""    ""    "1-2-3├▐░└î≡è╖"

<:#239,9071>FONT    8    "System"

<:#239,9071>126    2    68    13    1    1342373889    "button"    "▒╨╠▀█é╔ê┌ìs"    0

<:#239,9071>126    18    68    13    2    1342373888    "button"    "ÅIù╣"    0

<:#239,9071>3    1    117    9    1000    1342177280    "static"    "æIæ≡é╡é╜├▐░└é═"    0

<:#478,9071>3    9    117    9    1001    1342177280    "static"    "▒╨╠▀█ò╢Åæé╔║╦▀░é│éΩé▄é╡é╜"    0

<:#478,9071>3    17    117    9    1002    1342177280    "static"    "├▐░└é═î│é╠▄░╕╝░─é╞╪▌╕"    0

<:#239,9071>3    25    117    9    1003    1342177280    "static"    "é│éΩé─éóé▄é╖"    0

<:#478,9071>3    37    117    9    1004    1342177280    "static"    "1-2-3é┼ì∞ï╞é≡æ▒ìsé╖éΘé⌐üA"    0

<:#239,9071>3    45    117    9    1005    1342177280    "static"    "▒╨╠▀█é╔û▀é┴é─"    0

<:#478,9071>3    53    117    9    1006    1342177280    "static"    "ò╢Åæé≡ò╥ÅWé┼é½é▄é╖üB"    0

<:#239,9071>END DIALOG

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>FUNCTION newnow()

@Outline3@<:#239,9071>defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")

<:#239,9071>if defstyle = ""

<:#478,9071>    defstyle = str208        ' call for the default style sheet if not set in amipro.ini

<:#239,9071>endif

<:#239,9071>New(defstyle  1 1024  )

<:#239,9071>LayoutMode()

<:#239,9071>fullpageview()

<:#239,9071>setpagelayout()

<:#239,9071>END FUNCTION

@Function@<:#239,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>FUNCTION modframe()

<:#239,9071>count = getglobalvar$("framecount")

defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;

<:#452,9071>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)

<:#239,9071>top = count * (16 / 10) * 1440

<:#239,9071>FrameModInit( )

<:#239,9071>FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )

<:#239,9071>FrameModType((128 + 536870976) 0 ""   )

<:#239,9071>FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)

<:#226,9071>FrameModFinish( )

<:#239,9071>END FUNCTION

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>function setpagelayout()

<:#239,9071>ModLayoutInit(512  )

<:#478,9071>ModLayoutRightPage(1440 1440 1440 1440 CurUnits 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )

<:#239,9071>ModLayoutRightLines(0 1 0 1 2  )

<:#239,9071>country = GetProfileString$("intl", "sCountry")

<:#239,9071>if country <<<;> "United States" and country <<<;> "Canada"

<:#239,9071>    ModLayoutPageSize(16833 11908 CurUnits 4  ) ' A4

<:#239,9071>else

<:#239,9071>    ModLayoutPageSize(15840 12240 CurUnits 1  ) ' Letter

<:#239,9071>endif

<:#239,9071>ModLayoutRightHeader(1440 792 1440 72 CurUnits 0 1 1440 10465 2 2 4680 3 9360  )

<:#239,9071>ModLayoutRightFooter(1440 72 1440 792 CurUnits 0 1 1440 10465 2 2 4680 3 9360  )

<:#239,9071>ModLayoutFinish( )

<:#239,9071>END FUNCTION

@Function@<:#239,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>FUNCTION hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)

<:#239,9071>' loads a Lotus Appliction

<:#239,9071>Define FindWindowLoadLotusApp() DllCall("user,FindWindow,HCC", %1, 0)

<:#239,9071>ONERROR endit

<:#239,9071>ONCANCEL endit

<:#239,9071>hwnd = FindWindowLoadLotusApp(classname)

<:#239,9071>if hwnd <<<;> 0

<:#226,9071>    GetWindowText(hwnd,&AppTitleBarName)'dirty hack by KW

<:#226,9071>    ActivateApp(AppTitleBarName)

<:#239,9071>    if isiconic(hwnd)

<:#239,9071>        appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)

<:#239,9071>    endif

<:#239,9071>    RETURN hwnd

<:#239,9071>endif

<:#239,9071>app = GetProfileString$("Lotus Applications", LotusIniAppName, "lotus.ini")

<:#239,9071>amidir = getamidirectory$()

<:#239,9071>if app <<<;> ""

<:#239,9071>    appexecname = strfield$(app, 1, ".")

<:#239,9071>    hwnd = FindWindowLoadLotusApp(classname)

<:#239,9071>    if hwnd = 0

<:#239,9071>        if Exec("{appexecname}.exe", "") << 32

<:#239,9071>            macro = "{amidir}\macros\lotuspal.smm!salesmsg"

<:#239,9071>            calli macro(2)

<:#239,9071>            goto endit

<:#239,9071>        endif

<:#239,9071>    endif

<:#239,9071>    hwnd = findwindowLoadLotusApp(classname)

<:#239,9071>    if hwnd = 0

<:#239,9071>        goto endit

<:#239,9071>    endif

else

<:#239,9071>    macro = "{amidir}\macros\lotuspal.smm!salesmsg"

<:#226,9071>    calli macro(2)

<:#239,9071>    goto endit

<:#239,9071>endif

<:#226,9071>GetWindowText(hwnd,&AppTitleBarName)'dirty hack by KW

<:#226,9071>ActivateApp(AppTitleBarName)

<:#239,9071>endit:

<:#239,9071>RETURN hwnd

<:#239,9071>END FUNCTION

<:#226,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>function createdlgfont()

<:#239,9071>ignorekeyboard(1)

<:#239,9071>rmac = getrunningmacrofile$()            'internal windows screen font

<:#239,9071>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 128, 0, 0, 0, 32, "System")'Helv

<:#239,9071>if hfont <;> 1

<:#239,9071>    AllocGlobalVar("{rmac}hfont", 1)

<:#239,9071>    SetGlobalVar("{rmac}hfont", hFont)

<:#239,9071>    Return hfont

<:#239,9071>endif

<:#239,9071>End Function

<:#239,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>function deletefont()

<:#239,9071>ignorekeyboard(1)

<:#239,9071>rmac = getrunningmacrofile$()

<:#239,9071>AllocGlobalVar("{rmac}hfont", 1)

<:#239,9071>hfont = getglobalvar$("{rmac}hfont")

<:#239,9071>if hfont <;> 1

<:#239,9071>    deleteobject(hfont)

<:#239,9071>    freeglobalvar("{rmac}hfont")

<:#239,9071>endif

<:#239,9071>end function

<:#239,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>function setfont(hdlg, id)

<:#239,9071>ignorekeyboard(1)

<:#239,9071>rmac = getrunningmacrofile$()

<:#239,9071>AllocGlobalVar("{rmac}hfont", 1)

<:#239,9071>hfont = getglobalvar$("{rmac}hfont")

<:#239,9071>if hfont << 1

<:#239,9071>    if createdlgfont() << 1

<:#239,9071>        return 0

<:#239,9071>    endif

<:#239,9071>endif

<:#239,9071>hfont = getglobalvar$("{rmac}hfont")

<:#239,9071>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)

<:#239,9071>end function

<:#239,9071>

<:#239,9071>

@╠º▌╕╝«▌@<:#239,9071>function 123which()

<:#239,9071>' Are you running rockport?

<:#239,9071>rockportmenu1 = str209    ' this is the third menu in 123w rel 1.1

<:#239,9071>rockportmenu2 = str210        ' this is the third menu in 123w rel 1.1 if in chart mode

<:#239,9071>hmenu = getmenu(findwindow("123WParent", 0))    ' class name of 123w

<:#239,9071>menucnt = GetMenuItemCount(hmenu)

<:#239,9071>defstr menuname;

GetMenuString(hMenu, 2, &menuname, 80, MF_BYPOSITION)

<:#239,9071>if menuname = rockportmenu1 or menuname = rockportmenu2

<:#226,9071>    if menuname = rockportmenu2

<:#239,9071>        return 2

<:#239,9071>    endif

<:#239,9071>    return 1

<:#239,9071>endif

<:#239,9071>return 0

END FUNCTION<:p<* >>

<:#226,9071>

>

[Embedded]
00021745
>
[macsum] 17
bits 0 1 10 68
setappfocus 1204 0 1 132
helpme 1288 0 1 137
freeglobals 1440 0 1 142
initdlg2 1556 3 2 151
initdlg 1709 3 7 158
insertdata 2072 3 10 173
box1 3343 0 -1 241
123w 3942 0 -1 254
newnow 4551 0 2 268
modframe 4734 0 12 280
setpagelayout 5029 0 2 292
hActivateLotusApp 5518 3 6 308
createdlgfont 6354 0 3 350
deletefont 6582 0 3 362
setfont 6762 2 3 374
123which 7040 0 6 389
[macse]
14 bits
6 0
5 1
18 0
11 00000083
0 802
13
8 2
0 285 "{2}" 0.1
6 1
15
9
7 "123W"
8 3
7 "1-2-3 R4J"
8 4
7 "123W"
8 5
7 "123WParent"
8 6
16 hActivateLotusApp "{4}" "{5}" "{6}"
13
8 7
6 7
5 0
18 0
11 00000244
5 0
15
9
16 123which
13
5 0
18 1
11 00000313
7 "1-2-3 for Windows"
8 4
0 284 "user,GetWindowText,HHCH" "{7}" &4 50
5 4
21 8 [X]
20 00001127
19 00001127
0 271 "bits" 1
0 264 "bits" 0
0 271 "bitsapp" 1
0 264 "bitsapp" "{5}"
0 271 "framecount" 1
0 264 "framecount" 0
0 271 "lotusapphwnd" 1
0 264 "lotusapphwnd" "{7}"
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 9
0 284 "user,IsIconic,HH" "{7}"
13
11 00000740
0 284 "user,FindWindow,HCC" "Progman" 0
13
0 1036 [X] 274 61728 0
0 284 "user,ShowWindow,HHH" "{9}" 0
16 newnow
0 802
13
8 2
0 41 0 "{2}!initdlg"
0 41 71 "{2}!insertdata"
0 285 "{2}!setappfocus" 0.1
0 47 112 "{2}!helpme"
0 26 "." "box1"
0 41 0 "{2}!initdlg2"
0 26 "." "{5}"
13
8 10
6 10
5 1
18 0
11 00001050
0 284 "user,ShowWindow,HHH" "{9}" 5
10 00001099
0 284 "user,ShowWindow,HHH" "{9}" 5
0 38 "{4}"
16 freeglobals
5 1
15
9
0 284 "user,ShowWindow,HHH" "{9}" 5
0 38 "{4}"
16 freeglobals
6 1
15
9
14 setappfocus
0 265 "lotusapphwnd"
13
0 284 "user,SetFocus,HH" [X]
6 0
15
9
14 helpme
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
0 798
13
0 16 [X] "HelpPack.hlp"
13
0 284 "user,WinHelp,HHCHJ" [X] [X] 1 15
6 0
15
9
14 freeglobals
0 266 "framecount"
0 266 "bits"
0 266 "lotusapphwnd"
0 266 "bitsapp"
16 deletefont
6 0
15
9
14 initdlg2
5 1000
8 4
5 1006
6 4
18 2
12 00000104
10 00000141
5 1
6 4
3 0
8 4
10 00000026
16 setfont "{0}" "{4}"
10 00000071
6 3
15
9
14 initdlg
5 1000
8 4
5 1006
6 4
18 2
12 00000103
10 00000140
5 1
6 4
3 0
8 4
10 00000025
16 setfont "{0}" "{4}"
10 00000070
5 4
21 5 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &5
5 1
22 5
8 6
5 2
22 5
8 7
5 3
22 5
6 6
3 1
8 8
5 4
22 5
6 7
3 1
8 9
0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{6}" "{7}" "{8}" "{9}" 0
6 3
15
9
14 insertdata
7 ""
8 4
0 284 "user,FindWindow,HCC" "123WParent" 0
13
0 284 "user,GetWindowText,HHCH" [X] &4 50
0 1032 "{4}"
13
5 0
18 0
11 00000217
0 3 "1-2-3 é¬Ä└ìsé│éΩé─éóé▄é╣é±üB" "123COPY"
6 3
15
9
16 setappfocus
0 265 "lotusapphwnd"
13
8 5
0 265 "bitsapp"
13
8 6
16 123which
13
8 7
5 0
6 7
18 0
11 00000504
0 38 "1-2-3 R4J"
0 8 "123W" "system"
13
8 1
7 "[[run(""{{EDIT-COPY}"")]"
8 8
0 11 "{1}" "{8}"
13
8 9
6 1
5 0
18 3
11 00000491
0 9 "{1}"
10 00000741
5 1
6 7
18 0
11 00000631
5 1071
8 10
5 65536
8 11
0 284 "User,PostMessage,HHHHJ" "{5}" 273 "{10}" "{11}"
10 00000741
5 2
6 7
18 0
11 00000741
5 1452
8 10
5 0
8 11
0 284 "User,PostMessage,HHHHJ" "{5}" 273 "{10}" "{11}"
0 38 ""
0 1313 217 24 155
13
5 1
18 1
11 00000809
5 0
15
9
0 29
13
5 1
18 1
11 00000898
2 210 1
0 29
13
5 1
18 1
11 00000898
5 0
15
9
0 265 "framecount"
13
8 12
6 12
5 1
3 0
8 12
6 12
5 6
18 0
11 00001002
2 357 1 1
5 1
8 12
0 264 "framecount" "{12}"
16 123which
13
5 0
18 0
11 00001166
2 588 1 "OLE Link"
0 800
13
5 1
18 1
11 00001153
2 588 1 "Windows Metafile"
10 00001194
2 588 1 "Windows Metafile"
0 800
13
11 00001243
16 modframe
0 6 "[27]"
16 setappfocus
6 3
15
9
DIALOG box1
-2134376448 9 175 191 185 48 "" "" "1-2-3├▐░└î≡è╖"
FONT 8 "System"
118 3 63 12 71 1342373889 "button" "▒╨╠▀█é╔║╦▀░(\036C\037║)" 0
118 19 63 12 2 1342373888 "button" "ÅIù╣" 0
10 3 87 8 1000 1342177280 "static" "║╦▀░é╡é╜éóö═ê═ñé▄é╜é═" 0
10 11 91 8 1001 1342177280 "static" "╕▐╫╠é≡æIæ≡é╡é─é¡é╛é│éó" 0
10 19 101 16 1002 1342177280 "static" "<▒╨╠▀█é╔║╦▀░(C)> é≡æIæ≡é╡é─é¡é╛é│éó" 0
10 35 103 8 1003 1342177280 "static" "ÄΦÅçé≡îJéΦò╘é╡é─é¡é╛é│éó" 0
2 3 6 8 1004 1342177280 "static" "1." 0
2 19 6 8 1005 1342177280 "static" "2." 0
2 35 6 8 1006 1342177280 "static" "3." 0
DIALOG 123w
-2134376448 9 92 49 200 66 "" "" "1-2-3├▐░└î≡è╖"
FONT 8 "System"
126 2 68 13 1 1342373889 "button" "▒╨╠▀█é╔ê┌ìs" 0
126 18 68 13 2 1342373888 "button" "ÅIù╣" 0
3 1 117 9 1000 1342177280 "static" "æIæ≡é╡é╜├▐░└é═" 0
3 9 117 9 1001 1342177280 "static" "▒╨╠▀█ò╢Åæé╔║╦▀░é│éΩé▄é╡é╜" 0
3 17 117 9 1002 1342177280 "static" "├▐░└é═î│é╠▄░╕╝░─é╞╪▌╕" 0
3 25 117 9 1003 1342177280 "static" "é│éΩé─éóé▄é╖" 0
3 37 117 9 1004 1342177280 "static" "1-2-3é┼ì∞ï╞é≡æ▒ìsé╖éΘé⌐üA" 0
3 45 117 9 1005 1342177280 "static" "▒╨╠▀█é╔û▀é┴é─" 0
3 53 117 9 1006 1342177280 "static" "ò╢Åæé≡ò╥ÅWé┼é½é▄é╖üB" 0
14 newnow
0 286 "AmiPro" "defstyle" "AMIPRO.INI"
13
8 1
6 1
7 ""
18 0
11 00000113
7 "jdefault.sty"
8 1
2 101 1 "{1}" 1 1024
2 210 1
2 201 1
16 setpagelayout
6 0
15
9
14 modframe
0 265 "framecount"
13
8 1
0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
6 1
5 16
5 10
4 1
4 0
5 1440
4 0
8 5
2 421 1
2 416 1 0 1 1 0 16777215 0 0 0 0 0
5 128
5 536870976
3 0
2 417 1 [X] 0 ""
2 418 1 3816 2160 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
2 420 1
6 0
15
9
14 setpagelayout
2 361 1 512
2 363 1 1440 1440 1440 1440 2 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640
2 366 1 0 1 0 1 2
0 286 "intl" "sCountry"
13
8 1
6 1
7 "United States"
18 1
6 1
7 "Canada"
18 1
1 1
11 00000325
2 362 1 16833 11908 2 4
10 00000350
2 362 1 15840 12240 2 1
2 364 1 1440 792 1440 72 2 0 1 1440 10465 2 2 4680 3 9360
2 365 1 1440 72 1440 792 2 0 1 1440 10465 2 2 4680 3 9360
2 376 1
6 0
15
9
14 hActivateLotusApp
20 00000812
19 00000812
0 284 "user,FindWindow,HCC" "{2}" 0
13
8 4
6 4
5 0
18 1
11 00000267
0 284 "user,GetWindowText,HHCH" "{4}" &0 50
0 38 "{0}"
0 284 "user,IsIconic,HH" "{4}"
13
11 00000255
0 1036 "{4}" 274 61728 0
6 4
15
9
0 286 "Lotus Applications" "{1}" "lotus.ini"
13
8 5
0 798
13
8 6
6 5
7 ""
18 1
11 00000687
0 20 "{5}" 1 "."
13
8 7
0 284 "user,FindWindow,HCC" "{2}" 0
13
8 4
6 4
5 0
18 0
11 00000586
0 22 "{7}.exe" ""
13
5 32
18 5
11 00000586
7 "{6}\macros\lotuspal.smm!salesmsg"
8 8
16 "{8}" 2
10 00000812
0 284 "user,FindWindow,HCC" "{2}" 0
13
8 4
6 4
5 0
18 0
11 00000674
10 00000812
10 00000755
7 "{6}\macros\lotuspal.smm!salesmsg"
8 8
16 "{8}" 2
10 00000812
0 284 "user,GetWindowText,HHCH" "{4}" &0 50
0 38 "{0}"
6 4
15
9
6 3
15
9
14 createdlgfont
0 32 1
0 802
13
8 1
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 128 0 0 0 0 "System"
13
8 2
6 2
5 1
18 3
11 00000216
0 271 "{1}hfont" 1
0 264 "{1}hfont" "{2}"
6 2
15
9
6 0
15
9
14 deletefont
0 32 1
0 802
13
8 1
0 271 "{1}hfont" 1
0 265 "{1}hfont"
13
8 2
6 2
5 1
18 3
11 00000168
0 284 "gdi,DeleteObject,HH" "{2}"
0 266 "{1}hfont"
6 0
15
9
14 setfont
0 32 1
0 802
13
8 3
0 271 "{3}hfont" 1
0 265 "{3}hfont"
13
8 4
6 4
5 1
18 5
11 00000170
16 createdlgfont
13
5 1
18 5
11 00000170
5 0
15
9
0 265 "{3}hfont"
13
8 4
0 44 "{0}" "{1}"
13
0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
6 2
15
9
14 123which
7 "Wor&ksheet"
8 1
7 "&Chart"
8 2
0 284 "user,FindWindow,HCC" "123WParent" 0
13
0 284 "user,GetMenu,HH" [X]
13
8 3
0 284 "user,GetMenuItemCount,HH" "{3}"
13
8 4
0 284 "user,GetMenuString,HHHFHH" "{3}" 2 &5 80 1024
6 5
6 1
18 0
6 5
6 2
18 0
1 2
11 00000343
6 5
6 2
18 0
11 00000331
5 2
15
9
5 1
15
9
5 0
15
9
6 0
15
9
00021770